﻿module utils

let contains x = Seq.exists ((=) x)

let (--) b nb =
    b |> List.filter (fun x -> not (nb |> contains x))